home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / hdeocxct / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-11-13  |  3.1 KB  |  97 lines
  1. VERSION 5.00
  2. Object = "{7BC73EBA-545A-11D1-B9C1-444553540000}#3.0#0"; "HIDE.OCX"
  3. Begin VB.Form frmExample 
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Example of the Hide OCX"
  6.    ClientHeight    =   2550
  7.    ClientLeft      =   3915
  8.    ClientTop       =   3270
  9.    ClientWidth     =   3840
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2550
  13.    ScaleWidth      =   3840
  14.    Begin HideOCX.efxHide efxHide1 
  15.       Left            =   600
  16.       Top             =   2040
  17.       _ExtentX        =   714
  18.       _ExtentY        =   714
  19.    End
  20.    Begin VB.TextBox txtReshow 
  21.       Height          =   285
  22.       Left            =   360
  23.       MaxLength       =   2
  24.       TabIndex        =   4
  25.       Top             =   1320
  26.       Width           =   615
  27.    End
  28.    Begin VB.CheckBox chkSwitchWindow 
  29.       Caption         =   "Remove from Switch Window"
  30.       Height          =   255
  31.       Left            =   360
  32.       TabIndex        =   3
  33.       Top             =   840
  34.       Width           =   3135
  35.    End
  36.    Begin VB.CheckBox chkTaskList 
  37.       Caption         =   "Remove from Task List"
  38.       Height          =   255
  39.       Left            =   360
  40.       TabIndex        =   2
  41.       Top             =   360
  42.       Width           =   3135
  43.    End
  44.    Begin VB.Timer Timer1 
  45.       Interval        =   5000
  46.       Left            =   120
  47.       Top             =   2040
  48.    End
  49.    Begin VB.CommandButton cmdExit 
  50.       Caption         =   "Exit"
  51.       Height          =   375
  52.       Left            =   2520
  53.       TabIndex        =   1
  54.       Top             =   2040
  55.       Width           =   1215
  56.    End
  57.    Begin VB.CommandButton cmdEnable 
  58.       Caption         =   "Enable"
  59.       Height          =   375
  60.       Left            =   1200
  61.       TabIndex        =   0
  62.       Top             =   2040
  63.       Width           =   1215
  64.    End
  65.    Begin VB.Label Label1 
  66.       Caption         =   "Delay before reshow (seconds)"
  67.       Height          =   255
  68.       Left            =   1080
  69.       TabIndex        =   5
  70.       Top             =   1320
  71.       Width           =   2415
  72.    End
  73. Attribute VB_Name = "frmExample"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Option Explicit
  79. Private Sub cmdEnable_Click()
  80.     If chkTaskList.Value = 0 And chkSwitchWindow.Value = 0 Then efxHide1.HideMode = 0
  81.     If chkTaskList.Value = 1 And chkSwitchWindow.Value = 0 Then efxHide1.HideMode = 1
  82.     If chkTaskList.Value = 0 And chkSwitchWindow.Value = 1 Then efxHide1.HideMode = 2
  83.     If chkTaskList.Value = 1 And chkSwitchWindow.Value = 1 Then efxHide1.HideMode = 3
  84.     If Int(Val(Trim(txtReshow.Text))) < 5 Then txtReshow.Text = "5"
  85.     If Int(Val(Trim(txtReshow.Text))) > 60 Then txtReshow.Text = "60"
  86.     Timer1.Interval = Int(Val(Trim(txtReshow.Text))) * 1000
  87.     Timer1.Enabled = True
  88.     efxHide1.Enabled = True
  89. End Sub
  90. Private Sub cmdExit_Click()
  91.     End
  92. End Sub
  93. Private Sub Timer1_Timer()
  94.     Timer1.Enabled = False
  95.     efxHide1.Enabled = False
  96. End Sub
  97.